home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 20
/
Cream of the Crop 20 (Terry Blount) (1996).iso
/
bbs
/
cddk9606.zip
/
HEADERS.ARJ
/
WIN95.INT
< prev
next >
Wrap
Text File
|
1996-06-14
|
4KB
|
128 lines
{ ───────────────────────────────────────────────────────────────────────── }
{ WIN95: Windows 3.x and Windows 95(tm) Support Routines }
{ Copyright 1996 David Pinch ∙ All Rights Reserved Worldwide }
{ ───────────────────────────────────────────────────────────────────────── }
UNIT Win95;
{$B-} { . . . . . . . . . . . . . . . . . . . . Shortcut boolean evaluation }
{$F+} { . . . . . . . . . . . . . . . . . . . . Force far calls for safety }
{$I-} { . . . . . . . . . . . . . . . . . . . Disable input/output checking }
{$O+} { . . . . . . . . . . . . . . . . . . Allow this unit to be overlayed }
{$Q-} { . . . . . . . . . . . . . . Do not generate overflow-checking code }
{$R-} { . . . . . . . . . . . . . . . . Do not generate range-checking code }
{$S-} { . . . . . . . . . . . . . . . . Do not generate stack-checking code }
{$X+} { . . . . . . . . . . . Extended syntax for pChars and function calls }
INTERFACE
{#Start}
PROCEDURE CloseClipboard;
{
PURPOSE : Closes the Windows clipboard.
EXAMPLE : PROCEDURE WriteFirstNameToClipBoard;
BEGIN
OpenClipboard;
SetClipBoardDate(User.FirstName);
CloseClipboard;
END;
SEE ALSO : EmptyClipboard, OpenClipboard
}
PROCEDURE EmptyClipboard;
{
PURPOSE : Empties the Windows clipboard.
EXAMPLE : BEGIN
OpenClipboard
EmptyClipboard
CloseClipboard
END;
SEE ALSO : CloseClipboard, OpenClipboard
}
FUNCTION EnsureDOS7:Boolean;
{
PURPOSE : Returns TRUE if the local operating system is MS-DOS 7.0
(Windows 95) or later. Returns FALSE for all earlier versions.
}
PROCEDURE OpenClipboard;
{
PURPOSE : Opens the Windows clipboard.
NOTES : You must call this procedure before using any other
clipboard procedures.
SEE ALSO : CloseClipboard, EmptyClipboard
}
{#Pause}
FUNCTION SetApplicationTitle(p:pChar):Boolean;
{
PURPOSE : Sets the title of the application.
NOTES : a. Do not exceed 79 characters plus the terminating null zero.
b. In some cases, it is possible for the function to return
a successful status, even though the application title was
not actually changed.
c. The title is removed if p points to 0000:0000.
}
{#Resume}
PROCEDURE SetClipboardData(p:pChar);
{
PURPOSE : Copies the specified text to the Windows clipboard.
NOTES : The clipboard must be open (see OpenClipboard).
EXAMPLE : PROCEDURE WriteString(p:pChar);
BEGIN
OpenClipboard;
SetClipboardData(p);
CloseClipboard;
END;
SEE ALSO : CloseClipboard, OpenClipboard
}
PROCEDURE SetFocus(VM:Word);
{
PURPOSE : Sets the focus to the specified virtual machine.
NOTES : Use VM=0000h to specify the current virtual machine.
Windowed DOS boxes are set to full screen.
}
FUNCTION WinOldApVersion:Word;
{
PURPOSE : Identifies the WinOldAp version.
NOTES : WinOldAp is a Windows extension that allows old applications
to access DDE, menus, and the clipboard.
Zero is returned if this version of WinOldAp does not
support clipboard access.
SEE ALSO : CloseClipboard, OpenClipboard, SetClipboardData
}
IMPLEMENTATION
{ The source code is available upon registration. }
END.